home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / ghostbbs.zip / STRIP8.PAS < prev    next >
Pascal/Delphi Source File  |  1986-05-15  |  512b  |  27 lines
  1. program cisgam;
  2. var
  3. infile : file of byte;
  4. outfile : file of byte;
  5. temp,t : byte;
  6. x,y : string[40];
  7.  
  8. begin
  9. write('Input file ? ');readln(x);
  10. write('Output file ? ');readln(y);
  11. assign(infile,x);
  12. assign(outfile,y);
  13. reset(infile);
  14. rewrite(outfile);
  15. while not eof(infile) do
  16.   begin
  17.     read(infile,temp);
  18.     temp := temp and $7f;
  19.     if temp = 0 then temp := 32;
  20.     if temp = 17 then temp := 13;
  21.     write(chr(temp));
  22.     write(outfile,temp);
  23.   end;
  24. close(infile);
  25. close(outfile);
  26. end.
  27.